#ifndef FORMIC_FQMC_APJ_FORTRAN_HEADER
#define FORMIC_FQMC_APJ_FORTRAN_HEADER

#include<formic/fortran_mangle.h>

extern "C" {

  void FORMIC_FC_GLOBAL_(apj_fortran_transform_oei,APJ_FORTRAN_TRANSFORM_OEI)
         (   int * ni,
             int * na,
             double *   Jsi,
             double *   Jsa,
             double *  Jdia,
             double *   Tia);

  void FORMIC_FC_GLOBAL_(apj_fortran_transform_tei,APJ_FORTRAN_TRANSFORM_TEI)
         (   int * ni,
             int * na,
             int * nj,
             int * nb,
             double *   Jsi,
             double *   Jsa,
             double *   Jsj,
             double *   Jsb,
             double *  Jdia,
             double *  Jdij,
             double *  Jdib,
             double *  Jdaj,
             double *  Jdab,
             double *  Jdjb,
             double * Tiajb);

  void FORMIC_FC_GLOBAL_(apj_fortran_der_trans_oei,APJ_FORTRAN_DER_TRANS_OEI)
         (   int * ni,
             int * na,
             double *   Jne,
             double *   Jsi,
             double *   Jsa,
             double *  Jdia,
             double *   Tia);

  void FORMIC_FC_GLOBAL_(apj_fortran_der_trans_tei,APJ_FORTRAN_DER_TRANS_TEI)
         (   int * ni,
             int * na,
             int * nj,
             int * nb,
             double *   Jne,
             double *   Jsi,
             double *   Jsa,
             double *   Jsj,
             double *   Jsb,
             double *  Jdia,
             double *  Jdij,
             double *  Jdib,
             double *  Jdaj,
             double *  Jdab,
             double *  Jdjb,
             double * Tiajb);

}

#endif
